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Introdução 

ê 


Os jogos apresentados neste livro utilizam funções próprias dos 
microcomputadores MSX: som, cor, grafismo, etc. Por isso, estes 
programas não funcionam em microcomputadores que não estejam 
sujeitos a essa norma. 

Além do próprio jogo, o estudo dos programas vai lhe ensinar 
numerosas técnicas de programação que lhe serão úteis para desen- 
volver os seus próprios programas. 





Notas referentes 
aos programas 


Os programas devem ser digitados como são reproduzidos. Devem 
ser gravados em cassete {ou disquete) para não se ter de redigitá-los 
a cada utilização. Para isso, utilize as instruções seguintes: 

CSAVE “<NOME>'' 

substituindo <NOME> pelo nome do programa a gravar. Exemplo: 
para gravar o programa BLITZ, digite 

CSAVE "BLITZ" 

e digite ENTER depois de ter apoiado as teclas PLAY e REC do 
gravador. Para recarregar um programa, volte a fita cassete até o 
início do programa e digite CLOAD "<NOME>". Se quiser, por 
exemplo, recarregar o programa BLITZ, digite 

CLOAD "BLITZ" 
e digite ENTER. 

A fim de reduzir ao máximo os riscos de erros, as listagens dos 
programas foram reproduzidas por fotografia. Se os seus programas 
não funcionarem, verifique-os atentamente, considerando com 
maior cuidado os seguintes pontos: 

- linhas esquecidas, 

- números de linhas errados, 

- erros de digitação (cuidado principalmente para não confundir 
a letra O com o algarismo 0 ou a letra / com o algarismo 1 }. 

Todos os programas que utilizam as teclas habilitadas para movi- 
mentar o cursor podem utilizar um joystick. Para isso basta substi- 
tuir STICK(O) por STICK(I) e STRIG(O) por STRIG(I). 





SQUASH 


Graças ao seu computador, você pode jogar squash sentado em 
uma poltrona. A raquete se desloca com o auxílio das teclas do 
cursor. Vocé tem dez bolas que deve conservar em jogo o maior 
tempo possível. Cada bola rebatida ganha um ponto. 


lu RLM **•*•■**■*-*■*■ 

20 REM bi^UASH * 

30 REM n « « 

40 KEY OrF 
50 GOGt.lB 540 
60 LOCATE BX,BY,0 
70 F-RINT m 
80 BX«BX+DX 
90 BV»BY+DY 
100 LOCATE EiX,BY,0 
110 PRINT 

120 IF BY*21 AND ABS (BX-RX“3) > 1 TUEN 250 
130 IF BY=21 THEN S-S+ 1 : BEEP: DY^^-DY 
140 IF BY*Í THEN BEEP;DY— DY 
150 IF BX*3 OR BX=35 THEN BEEr:DX»-DX 
160 D»2*( (STICK(0)-7)-(BTICK(0)*3) > 
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170 IF D< >0 fHEM L»0=0 

IBO ir STICK(0)=0 THEf^ D0«0 

19Ú RX=RX+DO 

200 IF RX<0 ÍHEN RX=0 

210 IF RX>32THEN RX=*32 

220 LOCATE RX,RY,0 

230 PRINT R$; 

240 GOTO 60 

250 NB=*NB+1 

260 IF NB«U THEN 370 

270 LÜCATE BX,BY,0 

280 PRINT N#; 

290 FOR 1*1 TO 3 
300 BEEP 

310 FOR J«1 TO 100 

320 NEXT J 

330 NEXT I 

340 D0*0 

350 GOSUB 720 

360 GOTO 60 

370 LOCATE 13,5,0 

38C> PRINT "SCCRE s"iS; 

390 IF S>R1 THEN R1=S 
400 LOCATE 13,10,0 
410 PRINT "RECORD :";Rl; 

420 LOCATE 13,15 

430 PRINT “UMA OUTRA ?“; 

440 NB-O 

450 S*0 

460 DF=ÍNÍ^EVÍ 

470 IF ThEN 460 

480 Df*INKEYT 

490 IF Dí='"' THEN 400 

500 IF DíO"N" AND Dí<>’‘n“ THEN 50 

510 CLS 

520 LOCATE 0,0,1 
530 END 
540 CLS 

550 SCREEN 0,0 
560 COLOR 15,9 
570 DEFINT A-2 
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580 NÍ-í:hRí; <32> 

590 FOR BX-2 TO 37 
oOO LOCATE BX,0,0 
610 PRINT CHRí<219)5 
620 NEXT BK 
630 FOR BY*=1 TQ 21 
640 LDOATE 2,BY,0 
650 PRINT CHRÍ<219>; 

660 LOCATE 37,BV,0 
670 PRINT CMR^Í219>; 

6B0 NEXT BY 

Ó90 Rí-NÍ*NÍ+CHRí ( 22Zí tCHRÍ (223) +CHR#(22 
3)+N*+N< 

700 BÍ^CHRÍ Í249) 

710 RX-16 
720 RY=22 
730 BY«2i 

740 BX»1NT (RND ( 1 > *32) +5 
750 DY=-1 

760 DX=(INT<RND(l)*2)-.5)*2 
770 Rt rURN 
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BLITZ 


Sua missSo é destruir a cidade que você sobrevoa a fim de poder 
aterrissar. A cada passagem, seu avião voa um pouco mais baixo. 
Voüé pode soltar uma bomba (apoiando em uma tecla qualquer) 
somente quando a bomba precedente atingiu o seu objetivo ou o 
chão. Quando o avião aterrissar (ou se espatifar contra um prédio), 
o escore é exibido na tela. assim como também o recorde do dia. 
Se este jogo lhe parecer difícil demais, vocé poderá mudar os limites 
da cidade (10 e 30, linha 730). 


10 REM ********* 

20 REM ♦ BLITZ * 

30 REM »♦♦**♦*** 

40 KEY ÜFF 
50 WIDTH 3*? 

60 BOSUB 590 
70 BOSUB 670 
80 FOR HY=0 TO 23 
90 FOR HX»0 TO 38 
lOO LOCATE HX,HY,0 
no PRINT A^; 

120 IF HX>35 THEN 140 

130 IF VPEEK <HX+5+HY*40) 032 THEN 240 
140 IF INKEY*< >*"* AND BY*0 AND HX038 TH 
EN BX=HX+1:BY=HY+1 

150 IF BYOO THEN BOSUB 510 ELSE BOSUB 5 
60 

160 NEXT HX 

170 LOCATE 37,HY,0 

100 PRINT NN^; 

190 NEXT HY 

200 FOR 1=1 TO 500 

210 NEXT I 

220 S=S+40írMY+HX 
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230 GOTO 70 
240 S»S»40«HY+HX 
250 VF‘OKE BX+B1*40,0 
260 FOR I=HY TD 22 
270 LOCATE HX+1,I,0 
200 F-RINT NNÍ; 

290 LOCATE HX+1, 1+1,0 
300 PRINT RlGHTi (A:»,3) ; 

310 FOR J=1 TO 100 

320 NEXT J 

330 NEXT I 

340 IF S>R THEN R=S 

350 LÜCATE 3,0,0 

360 PRINT "SCORE :"5S: 

370 LÜCATE 25,0,0 
300 PRINT "RECORD -■•';R; 

390 FOR 1=1 TG 100 
400 NEXT I 
410 Rí»INKEY« 

420 IF RÍC ’"’ THEN 410 

430 LOCATE 7,13,0 

440 PRINT "UMA OUTRA 7"; 

450 RÍ=INFEYÍ 

460 IF Rí='"' THEN 450 

470 IF RíO*’N" AND RS< >"n" THEN S=0:G0T0 
70 

400 COLOR 15,4,5:L0CATE 0,0,1 
490 CLS 
500 END 

510 IF BY>23 THEN BY=0 
520 VPQKE BX+B1*40,32 
530 01 «BY 

540 IF BYOO THEN VPOKE BX f0Y*4O, B: 3Y=BY 

+ 1 

550 RETURN 
560 FOR I«1 TO 10 
570 NEXT I 
500 RETURN 
590 SCREEN 0,0 
600 GOSUB 790 
610 COLOR 10,1 
620 DEFINT A-V 
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6*0 A4-CH:\Í (32) tCHRÍÍilo) ♦•CHWl v 12*5 » ^ CriF.í 
<l30í 

640 B-131 

650 NNf»CHRJ:(32)+CHR4 (32) +CHRÍ (32) 

660 RETURN 
670 HX=0 
c80 HY=0 
690 BX*Õ 
700 BY=0 
710 B1=BY 
720 CLS 

730 FOR I-iO TO 30 

740 FOR J»23 TO INT (RND ( 1 ) »5> + 14 STEF-l 

750 VPOKE I+J»40,i32 

760 NEXT J 

770 NEXT I 

730 RETURN 

790 RESTORE 

800 FOR I«0 TO 39 

810 READ A 

320 VPOKE 3072+1, A»4 
8'50 NEXT I 
340 RETUF^N 

ÜÍ50 DATA 0,0,32,40,56,65,63,63 
360 DATA 0,0,0,0,0,63,63,63 
370 DnTA 0,0,0,0,0,48,60,62 
380 DATA 14,14,4,14,14,14,14,4 

DATA 63,41,41,41,63,63,63,63 


, 
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DEFESA ANTIAEREA 


Os papéis agora foram invertidos. Você manobra a Defesa Anti- 
aérea e deve tentar abater os aviões que passam por cima. Para 
atirar, utilize qualquer tecla. Para começar, vocé dispõe de quinze 
mísseis. Se abater dez aviões, obterá um bônus de dez pontos e 
dez mísseis suplementares. 


10 REM ♦♦*-*♦♦♦***#*****♦**♦ 

20 REM * DEFESA ANTIAEREA * 

30 REM ♦*****#»****♦♦♦***♦* 

40 KEY OFF 
50 WIDTH 39 
60 CLEAR 250 
70 60SUB 640 

BO A$=RIGHT^(A$,1)+LEFTS(A^,3S) 
90 B$*RIGHT^(B#,38)+LEFT*(B», l) 
100 LOCATE 0,0,0 
110 PRINT A*; 

120 LGCATE 0,2 
130 PRINT B$; 

140 LOCATE MX-2,24,0 
150 PRINT Jí; 

160 R^=INKEYÍ 
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AND MY=24 THEN MY«23:CM»G4 


170 IF Rí^O"" 
sNM=NM-l 

180 IF MY024 THEN MY=MY-2: VPOKE MX+MY*4 

0,CM:VP0KE MX-^ (MY+2) ^40,00 

190 IF MY03 THEN 270 

200 IF VPEEK(MX+aO)*CO THEN 270 

210 VPOKE MX+BO,CE 

220 VPOKE MX+MY*40,C0 

230 BEEP 

240 S-=S+1 

250 Bí-LEFTí:<B.í, 17) +üií+RIGHT* (Bí, 18) 

260 GOTO 340 

270 IF MYOl THEN 370 

200 IF VPEER(MX)*CÜ THEN 370 

290 VPOKE IÍX,CE 

300 S=S+1 

310 VPOKE MX+MY#40,C0 
320 BEEP 

330 A t=LEFTÍ í A:f , 1 7 ) +0 1 í + R 1 GHJS ( Af , 1 8 ) 

340 IF S>1 AND S/ 10=INT (3/ 10> THEN GOSUB 
570 

350 MY=24 
360 M«G6 

370 LDCATE 0,24,0 

380 PRINT "S :";NM; 

390 IF NM<1 AND MY=24 THEN 420 

400 IF MY< = 1 THEN VPOKE MX+40 ,C0: MY-24: li 

=66 

410 GOTO 80 

420 IF S>R THEN R=S 

430 LOCATE 15,10 

440 PRINT "SCORE :";S; 

450 LOCATE 15,13 

460 PRINT "RECORD :";R; 

470 LOCATE 15,16 
480 PRINT "UMA OUTRA 
490 RÍ^INKEYí: 

500 IF RfO'"’ THEN 490 
510 R:»=INKEY$ 

520 IF R*»"" THEN 510 

530 IF RÍ<>"N" AND R*0"n‘' THEN 70 

540 LOCATE 0,0,1 
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550 CLS 
560 END 
570 
5B0 

590 NM=N!1+10 
600 FOR 1=1 TO 300 
610 NEXT I 
620 S=S+10 
630 RETURN 

640 DEFINT A-Z:SCREEN 0,0:COLOR 10,4 
650 GOSUB 000 

660 S*0: Aí*” ” ; Bí*” " 8 NÍ*CHRÍ (32) 

670 FOR 1=1 TO 5 

600 Aí «Aí +CHRÍ (120) +CHRÍ (129) +NÍ í-NÍ-^NÍ-^N 


í t-NÍ+NÍ 

690 BÍ*BÍ+CHRÍ (130) +CHRÍ (131 ) +Ní-fNí •►Ní+N 


Í+NÍ+NÍ 


700 

710 

720 

730 

740 

750 

760 

770 

700 

790 

000 

01O 

020 

830 

840 

850 

860 

870 

880 

090 

900 

910 

920 


NEXT I 

Aí*LEF Tí í Aí , 39 ) ; BÍ-LEF T í ( Bí , 39 ) 
Alí=AísBlí=BÍ :CE=^135 
JÍ=CHRÍ (132) +CHRÍ í 133) +CHRÍ (132) 
MX=19:MY«24:NM=15:G6«133: 04=134 
C0=32 : 0 1 í =NÍ +NÍ +NÍ +NÍ 
LOCATE MX-2,MY,0:PRINT Jí; 
LOCATE 0,0,0:PRINT Aí; 

LOCATE 0,2,0:PRINT Bí; 

RETURN 

RESTORE 

FOR 1*0 TO 63 

READ A:VPOKE 3072+1, A*4 

NEXT I 

RETURN 

DATA 0,1,48,49,63,63,16,0 
DATA 0,62,36,62,63,63,62,24 
DATA 0,31,9,31,63,63,31,6 
DATA 0,32,3,35,63,63,2,0 
DATA 0,0,0,0,0,63,63,63 
DATA 30,30,30,63,63,63,63,63 
DATA 4,14,14,14,14,14,14,14 
DATA 4,21,14,4,4,14,21,4 


- 19 - 




RASTRO 


Dois jogadores se confrontam para dividir entre si o espaço vital. 
Cada um deve esforçar-se, ao mesmo tempx) em que se move, por 
nunca cortar o seu rastro ou o de seu adversário, e não sair do retân- 
gulo desenhado na tela. Utilize os joysticks ou as seguintes teclas: 

Jogador da direita ; < P >, < L >, < ; > e < . > 

Jogador da esquerda: <W>, <A>, <S>e < Z> 


10 REM 

20 REM » RASTRO * 

30 REM ********** 

40 KEY OFF 

50 WIDTH 39 

60 GOSUB 690 

70 QN JK BOTO 140 

80 D:Í-INKEYÍ 

90 HB==(D#=**L*')-(Dí="; '*) 

100 VB=(DÍ=*''P'')-(Df«". '*) 

110 HA»(D*-'*A")-(DÍ="S") 

120 VA-(D**"W")-(DÍ="Z”) 

130 GOTO 180 

140 HA*(STICK<1>=7)-(STICKÍ1)*3> 
150 VA=(STICK<l)=l)-(STICKU)-5> 
160 HB=(STICK(2)»7>-tSTICK<2)*3> 
170 VB»<STICK(2)=1>-(STICK(2)=5) 
ISO IF HAOO THEN H1*HA:V1»0 
190 IF VAOO THEN V1*VA:H1"*0 
200 IF HBOO THEN H2=HB:V2=0 
210 IF VBOO THEN V2»VB:H2-0 
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220 

230 Y1=Y1+V1 

240 IF VPEEK(X1+Y1*40)<>N THEN 320 
250 VPOKE X1'*-Y1*40,CQ 
260 X2-X2+H2 
270 Y2=Y2+V2 

280 IF VPEEK(X2+Y2*40)ON THEN 380 

290 VPOKE X2+Y2*40,CD 

300 BEEP 

310 GOTO 70 

320 F2-F2+1 

330 GOSUB 630 

340 IF F2=^10 THEN 440 

350 IF INKEYSO**” THEN 350 

360 GOSUB 770 

370 GOTO 70 

300 F1=F1+1 

390 GOSUB 630 

400 IF Fl*10 THEN 500 

410 IF INKEY^O”” THEN 410 

420 GOSUB 770 

430 GOTO 70 

440 CLS 

450 LOCATE 9,5 

460 PRINT **0 JOGADOR DA DIREITA GANHA"; 

470 LOCATE 15,10 

480 PRINT F2;"A";F1 

490 GOTO 550 

500 CLS 

510 LOCATE 9,5 

520 PRINT "O JOGADOR DA ESQUERDA GANHA"; 

530 LOCATE 15,10 

540 PRINT F1;"A'*;F2 

550 LOCATE 14,15,1 

560 PRINf "UNE AUTRE ?"; 

570 IF INKEV:í<>"" THEN 570 
580 DÍ*INKEV$ 

590 IF Dí==*"** THEN 580 

600 IF D:S<>*’N" AND D*<>"n" THEN RUN 

610 CLS 

620 END 

630 FOR 1=1 TO 5 


I 
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640 BEEP 

650 FGR J-1 TO 100 
660 NEXT J 
670 NEXT I 
680 RETURN 
690 CLS 

700 SCREEN 0,0 

710 DEFINT A-Z:COLÜR 1,12:LDCATE 6,10,0 

720 GOSUB 920 

730 PRINT "JOYSTICKS ?"; 

740 R**INKEY*sIF R:>=!'"' THEN 740 
750 JK*-(Rt="0*')-(R^='’o") 

760 CG=128:CD=129:N»32 
770 CLS 

780 FOR X1*0 TO 39 

790 VPQKE X 1+40, 130: VPOKE XI +880, 130 

800 NEXT XI 

810 FOR Yl*2 TO 22 

320 VPOKE Yi*40, 130: VPOKE Y1 #40+39, 130 

830 NEXT Y1 

840 LOCATE 2,24,0 

850 PRINT "JOGADOR DA ESQUERDA: F1 ; 

860 LOCATE 22,24,0 

870 PRINT "JOGADOR DA DIREITA: F2; 

880 Xl=8: Y1=11:X2»32 

890 Y2»11:H1-1:V1=0 

900 H2— 1:V2«0:S1«0:S2=0 

910 RETURN 

920 FOR 1*0 TO 23 

930 READ A: VPOKE 3072+I,A#4 

940 NEXT I 

950 RETURN 

960 DATA 30,43,53,43,53,43,53,30 
970 DATA 30,63,63,63,63,63,63,30 
980 DATA 63,63,63,63,63,63,63,63 
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SLALOM 


Vá ao$ esportes de inverno sem correr o risco de quebrar uma 
perna! Salte do alto da pista e tente passar pelo maior número 
possível de portas sem bater nas batidas. Aperte qualquer tecla 
para mudar de direção. 


10 REM *******iMMr 
20 REM * SLALOM * 

30 REM *********** 

40 KEY OFF 
50 WIDTH 39 
60 GOSUB 450 
70 FOR K=1 Tü 300 
80 X=SX+1 
90 Y»SY 

100 IF K>-16 AND (K-5> /10=^INT ( (K-5) /lO) 
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THEN GQSUB 370 

110 IF K<2B4 ftND K/I0»INT<K/10) THEN GOS 
UB 390 

J20 IF INKEYSO"*' THEN DX=-DX 
130 S1=SX 
140 SX=SX+DX 

150 IF SX<2 THEN SX=2:DX=-DX 
160 IF SX>36 THEN SX«»36: DX=-DX 
170 LDCATE Sl,SY,0 
180 PRINT B4; 

190 LOCATE 0,24,0 
200 PRINT 

210 LOCATE SX,SY,0 
220 PRINT S*(DX/2+.5)s 
230 Sl-SX 
240 NEXT K 
250 LOCATE 5,5,0 

2ó0 PRINT "PORTAIS) PERDIDA(S) :";T 

270 LOCATE 5,8,0 

2BC PRINT "OUTRA DESCIDA 7" 

290 D*«INKEY* 

300* IF D*<>"" THEN 290 

310 DÍ«INKEYáf 

320 IF D#='"' THEN 310 

330 IF D*<>"N" AND D#0"n" THEN RUN 

340 CLS 

350 LOCATE 1,1,1 
360 END 

370 IF VPEEK(X-1+Y*40)»32 DR VPEEK ( X+2+4 
0*Y)=32 THEN IF VPEEK ( X-2+Y*40) -32 OR VP 
EEK(X+l+Y*40)-32 THEN T=T+1:BEEP 
380 RETURN 

390 P=P-MINT(RND(1)*3)“1)*0 

400 IF P<2 THEN P=10 

410 IF P>34 THEN P-26 

420 LOCATE P,23 

430 PRINT P*5 

440 RETURN 

450 DIM S»(l) 

460 DEFINT A-Z 
470 Sí (O)-CHRÍ (128) 

480 S^(1)*CHR«(129) 
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490 EI«-iCHR$(32) 

500 P*=CHR#C130)+BÍ+B4:+CHR*(131) 

510 SCREEN 0,0 
520 COLOR 4,15 
530 DX«-1 
540 SY=8 
550 SX-17 
560 S1=SX 
570 P=18 
580 GOSUB 660 
590 CLS 

600 LOCATE 5,10,0 

610 PRINT "PRESSIONE QUALQUER TECLA PARA 
COriECAR" 

620 N*RND(1> 

630 IP INKEY*="" THEN 620 

640 CLS 

650 RETURN 

660 FOR 1=0 TO 31 

670 READ A 

680 VPOKE 30724 I,A*4 

690 NEXT I 

700 RETURN 

710 DATA 4,56,17,26,4,8,16,32 
720 DATA 8,7,34,22,8,4,2,1 
730 DATA 12,28,12,4,4,4,4,4 
740 DATA 6, 7, 6, 4, 4, 4, 4, 4 
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CATA-MIGALHAS 


Este é um modo curioso de utilizar um computador: vocé deve 
se esforçar por apanhar o mais depressa possível as migalhas que 
estão na toalha. Vocé dispõe de 30 segundos para uma limpeza 
total. As migalhas são representadas pelos pontos brancos. As teclas 
do cursor lhe permitem controlar o seu cata*migalhas. 


10 REM »»*««»«#»»««»»»#» 

20 REM * CATA-MISALHAS ♦ 

30 REM ♦*♦***♦♦♦#*♦♦***♦ 

40 KEY OFF 
50 GOSUB 260 
60 LOCATE 0,23,0 

70 PRINT-”TEMPS : " ; INT < 2 ) ; "SCORE 
00 IF Z<1 THEN 580 
90 K*STICK(0) 
lOO D1=ÍK=7)-<K=3) 

110 D2*<K*1)-<K=5> 

120 IF ÜIOO XHEN DX*Dl:DY-0 
130 IF D2O0 THEN DY*D2;DX=0 
140 XP»PX+DX 
150 YP*PY-í-DY 
160 CR=VPEEKÍXP+YPí(40) 

170 IF CR-J OR CR^B THEN XP«PX:YP=PY 

180 IF CR*=^M THEN S=S+1 : BEEP; X*X + 1 

190 VPOKE PX+PY*40,N 

200 VPOKE XP+YP*40,J 

210 PX=XP 

220 PY»YP 

230 Z*Z-,1 

240 IF .X=NM THEN 720 
250 GOTO 60 
260 SCREEN 0,0 
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270 COLOR 15, 4, S 
280 DEFINT A-Y 
290 B-233 
300 M=249 
310 N=32 
320 S-0 
330 NM=10 
340 X=0 

350 FDR PX*0 TO 39 

360 VPOKE PX+40,B 

370 VPOKE 880+PX,S 

380 NEXT PX 

390 FOR PY«2 TO 21 

400 VPOKE PY*40,B 

410 VPOKE PY#40+39,B 

420 NEXT PY 

430 FOR 1=1 TO NM 

440 PX»INT(RND(-TIME)*37)+1 

450 PY-INT(RND(-TIME)*21)+2 

460 IF VPEEK(PX+PY*40)<>32 THEN 440 

470 VPOKE PX+PY*40,M 

400 NEXT I 

490 PX=INT(RNDÍ-TIME)*37)+1 

500 PY»INT(RND(-TIME)*21>+2 

510 IF VPEEK(PX+PY*40)<>32 THEN 490 

520 VPOKE PX+PY*40,J 

530 Z-30 

540 DX=0 

550 DY=0 

560 J-219 

570 RETURN 

580 FOR 1=1 TO 500 

590 NEXT I 

600 IF INKEYÍO*'" THEN 600 

610 IF S>R THEN R-S 

620 LOCATE 13,10 

630 PRINT "RECDRD 

640 LOCATE 13,16 

650 PFíINT "UMA OUTRA ?"; 

660 D$=INKEY« 

670 IF D*»"" THEN 660 
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680 IF D#<>”N'* AND D^O*’n" THEN 50 
690 CLS 

700 LOCATE 0,0,1 

710 END 

720 NM=NM+1 

730 VPOKE XP+YP*40,N 

740 GOSUB 340 

750 GOTO 60 
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TANQUE 


Tente seguir o seu caminho com o tanque, evitando ao mesmo 
tempo as minas que af foram coiocadas pelo computador. Para 
dirigir, utilize as teclas do cursor. Se a passagem é bloqueada, você 
pode explodir uma ou várias minas atirando uma das suas dez bom- 
bas (aperte a barra de espaço). 


10 REM *♦♦♦♦♦♦♦♦♦ 

20 REM * TANQUE * 

30 REM *»*»««»»»» 

40 KEY QFF 
50 WIDTH 39 
60 GOSUB 570 

70 TX=TX4 (5TICK(0)*7)-(STICK(0>»3) 
eo VPOKE X+40*Y,32 
90 LOCATE 0,24,0 
100 PRINT Rí 

110 IF VPEEK(TX+TY*40)<>32 THEN 300 

120 VPQKE TX+TY#40,T 

130 IF STRIG(O) — 1 THEN GOSUB 240 

140 X=TX 

150 Y=TY 

160 P0»INTCRND(1 ) »7)+lB 
170 VPOKE 8B0+P0,M 
IBO P0=INT(RND<1)*7)+1B 
190 VPQKE 880+P0,M 
200 B=S+1 

210 FOR 1=1 TO DL-S 
220 NEXT I 
230 GOTO 70 
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240 IF 0B»0 THEN 290 

250 GB-UB-1 

260 FQR 1=1 TO 5 

270 VPOKE TX-KTY + I>#40,32 

280 NEXT 1 

290 RETURN 

300 FOR I»1 TO 10 

310 VPOKE TX+TY*40,M 

320 FOR J=1 TO 100 

330 NEXT J 

340 BEEP 

350 VPOKE TX+TY*40,T 

360 FOR J=1 TO 100 

370 NEXT J 

380 BEEP 

390 NEXT I 

400 IF S>R THEN R-S 

410 CLS 

420 LOCATE 10,10 
430 PRINT "SCORE :";S; 

440 LOCATE 9,14 

450 PR INF "RECORD :”sR; 

460 LOCATE 9,18,1 

470 PRINT "UMA OUTRA ?'*; 

400 IF INFí.EYíO”*’ IHEN 480 

490 x*=in^:eyí 

500 IF X-»="" THEN 490 

510 IF X^^ >"N" AND XíO"n" THEN 550 

520 CLS 

530 COLOR 15,4 

540 END 

55<» GÜSUB 720 

560 GOTO 70 

570 CLS 

580 SCREEN 0,0 

590 COLOR 1,11 

600 DEFINT A-Z 

610 T*12B 

620 M=42 

67.0 

640 FOR 1=1 TO 15 
650 R:T=RÍ+CHRt(32) 
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660 NEXT I 

670 R*=R:T+CHR*(42)+CHRí (42) 

680 FOR I»1 TO 7 
690 R$=R«+CHRÍ:<32) 

700 NEXT I 

710 R*=R*+CHRí<42)+CHR|:<42) 

720 CLS 

730 TX*19 

740 TY-10 

750 X=TX 

760 Y^TY 

770 S=0 

700 GOSUB 050 

790 DL=200 

BOO OB^IO 

010 FOR 1*1 TO 24 

820 FRINT Rí 

830 NEXT I 

840 RETURN 

B50 RESTORE 

060 FÜR 1*0 TO 7 

870 READ A 

880 VPOKE 3072+I,A*4 
890 NEXr 1 
900 RETURN • 

910 DATA 17,31,31,31,31,21,4,4 
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ALFABETO 


Este é um jogo de habilidade bastante difícil. Vocé tentará marcar 
o maior número possível de pontos apagando as letras exibidas 
pelo computador. Utilize as teclas do cursor para caminhar. 

Cuidado: vocé deve apagar as letras na ordem alfabética evitando 
os obstáculos colocados ao acaso na tela. e isto num tempo limitado. 
(0 tempo que lhe sobra é exibido na parte inferior da tela.) Quando 
todas as letras forem apagadas, o jogo recomeça com uma letra 
suplementar. 


10 REM ***#**#**♦*♦ 

20 REM * ALFABETO * 

30 REM *#»*♦♦♦*♦♦** 

40 KEY OFF 
50 WIDTH 39 
60 GOSUB 350 
70 FOR 1=1 TO X 
80 LÜCATE 0,23,0 

90 PRINT "TEMPS : ; INT ( Z > , "SCORE :“;S; 
:00 IF Z<1 THEN 700 
110 K=STICK(0) 

120 D1=(K*7)-(K»3) 

130 D2=(K=1 )-(K-5) 

140 IF DlOO THEN DX=D1:DY*0 
150 IF D2O0 THEN DY*D2:DX=0 
160 XP=PX+DX 
170 YP=PY+DY 
100 CR=VPEEK(XP+YP*40> 


190 IF CR-I+64 THEN S*-S+l : BEEP: GOTO 270 

200 IF CR032 THEN XP-PX:YP*PY 

210 VPOFE PX+PY»4U,N 

220 VPOKE XP+YP*40,J 

230 PX*XP 

240 PY=YP 

250 Z«Z-.l 

260 GOTO ao 

270 VPOKE PX+PY«40,N 

280 VPOKE XP+YP*40,J 

290 PX»XP 

300 PY=YP 

310 2=2-. 1 

320 NEXT I 

330 GOSUB 350 

340 GOTO 70 

3b0 SCREEN 0,0 

360 COLOR 15,3 

370 DEFINT A-Y 

380 J=215 

390 M=219 

400 X-X+1 

410 N^32 

420 FOR PX-0 TO 39 

430 VPOKE PX+40,M 

440 VPOKE 880+PX,M 

450 NEXT PX 

460 FGR PY=2 TO 21 

470 VPOKE PY*40,M 

480 VPOKE PY*40+39,M 

490 NEXT PY 

500 FOR 1=1 TO 120 

510 PX*INT(RND(1)»37)+1 

520 PY-INT(RND(l)*21)+2 

530 IF VPEEK (PX+PY«40)<>32 THEN 510 

540 VPOKE PX+PY*40,M 

550 NEXT I 

560 FOR Z*1 TO X 

5/0 PX=INT<RNDU)«37)+1 

580 PY=INT(RND(l)*21)+2 

590 IF VPEEK (PX+PY#40) 032 THEN 570 

600 VPOKE PX+PY*40,2+64 
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610 NEXT 2 

620 PX=INT(RND<“TIME)*37)+1 

630 PY»INT(RND(-TIME)*2U+2 

640 IF VPEEK(PX+PY*40)<>32 iHEN 620 

650 VPOKE PX+PY*40,J 

660 Z»50 

670 DX*0 

680 DY=0 

690 RETURN 

700 FOR 1=1 TO 500 

710 NEXT I 

720 IF INKEYSO**" THEN 720 
730 IF S>R THEN R«S 
740 LOCATE 13,10 
750 PRINT "RECORD :”;R; 

760 LOCATE 13,16 
770 PRINT "UMA OUTRA 
780 DS=INKEY* 

790 IF Dí»*"' THEN 780 

800 IF DíO"N'* AND DSO*'n" THEN RUN 

810 CLS 

820 LOCATE 0,0,1 
830 END 
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ATERRISSAGEM 


Depois de longa viagem fora da força de gravidade, pousar uma 
nave espacial sem choques não é tarefa simples; mas, graças ao seu 
computador, você vai estar em condições de realizá la sem perigo. 
Vocé deve pousar a sua nave cm uma das quatro áreas previstas para 
esse fim. Vocé pode se dirigir para a direita e para a esquerda com a 
ajuda das teclas < > > e < ^ >. Após cada aterrissagem realizada 
com sucesso, o jogo renomera com maior velocidade. 


10 REM #*************** 

20 REM * ATERRISSAGEM * 

30 REM ««*«■»******-»»*»# 

40 60SUB 350 
50 GOSUB 520 
60 FOR NY=1 TO 21 
70 DÍ=INKEY:Í 
80 NH=NX 

90 NX*NX+(STICK(0)-7)-(STICK<0)=3) 
100 IF NX<2 THEN NX*2 
110 IF NX>36 THEN NX*36 
120 LOCATE NH,NY-i:PRINT B2#j 



130 LOCATE NH,NY;PR1NT B2<; 

140 LOCATE NX,NY;PRINT Nlt; 

150 LOCATE NX,NY+1:PRINT N2í; 

1'60 FOR 1*1 TO DL:NEXT I 
170 NEXT NY 

180 IF INT((NX-4)/10)»(NX-4)/10 THEN GOT 
D 50 

190 LOCATE NX,NY:PRINT B2í; 

200 LOCATE NX ,NY-1 : PRINT B2$-z 

210 IF NX<5 THEN NX-5 

220 LOCATE NX-3,NY: PRINT NCS; 

230 BEEP 

240 FOR 1=1 TO 400: NEXT I 

250 LOCATE 8, 10: PRINT "SUA NAVE SE ESPAT 

IFOU"; 

260 LOCATE 15,12-:PRINT "SCDRE :**5S-1; 

270 LOCATE 14, 15: PRINT "UMA OUTRA 7"; 

280 IF INkEYÍO"" THEN 280 

290 D«=INKEYÍ 

300 IF D«="" THEN 290 

310 IF DÍO**N" ANÜ D*0"n" THEN RUN 

320 LOCATE 0,0,1 

330 CLS 

340 END 

350 COLOR 10,4 

360 SCREEN 0,0 

370 WIDTH 39 

380 KEY DFF 

390 FOR I=*0 TO 39 

400 READ A 

410 VPQKE 3072+I,A*4 

420 NEXT I 

430 B:í=CHRl:(32> 

440 B2í=B^+B3? 

450 Nl*=CHRá:(l20)+CHRÍ (129) 

460 N2J:=CHR<(130)-*-CHR*(131) 

470 A»=CHR*(132)+CHRí:<132) 

480 NCI:^CHRí: (131) +CHR* ( 129) +B-^+CHR^ ( 128) 
+CHR» (130) 

490 S=0 
500 DL^lOO 
510 RErURN 
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520 

530 

540 

550 

560 

570 

5H0 

590 

600 

610 

620 

630 

640 

650 

660 


FOR 1«1 TO 500;NtXT I 
CLS 

FÜR 1*0 TO 3 

LOCATE 4+1*10, 24, OiPRiNT Aí; 

NEXT I 

DL=DL-10 

IF DL=:i THEN DL=1 
B=S+i 

NX*INT (RND í 1 ) *35) +2 
RETURN 

DATA 0,7,15,31,59,59,63,59 
DATA 0,56,60,62,55,55,63,55 
DATA 59,31, 15, 18, 32, 32, 16, 5a 
DATA 55,62,60,18,1,1,2,7 
DAíA 63,63,63,0,0,0,0,0 
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CACA AO PATO 


0 seu microcomputador convida o para uma caçada ao pato. 
Os patos voam da direita para a esquerda, na parte superior da tela. 
Você se move utilizando as teclas do cursor. Pode atirar quantos 
cartuchos quiser, mas só passarão 20 patos e o seu objetivo é abater 
o maior número possível. Para atirar, aperte a barra de espaço. 
Se vocé atingir um pato, ganhará um ponto, enquanto ele cairá 
batendo as asas. 


10 REM **************** 

20 REH * CACA AQ PATO ♦ 

30 REM *»****♦*♦♦♦♦*♦** 

40 KEY OFF 
50 WIDTH 39 
60 GOSUB 330 
70 Z— Z 
80 H-Z+.5 
90 CX*CX-1 

100 IF CX<0 THEN GOSUB 560 
110 IF NC=0 THEN 710 
120 LOCATE CX,CY,0 
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1 50 PMNT CCS<M) ; 

140 LPrATE X,V,0 
150 PKÍmT Ní; 

160 LOCATE JX,JY 
170 PRINT Jfi 
180 X=^JX 

190 IF 7YOJY THEN TY=TY-2:80T0 210 
200 TX=JX 

210 IF TY<2 THEN 610 
220 LOCATE TX,TY,0 
230 PRINT Jí; 

240 IF TYOJY THEN LOCATE TX , TY+2,0: PRIN 
T N^; 

250 JX*JX + 2»( (STICK(0)=7)-(STICK(0)=»3) ) 

260 IF JX>37 THEN JX=37 

270 IF JX<2 THEN JX*2 

280 IF STRIG(0)*0 THEN 70 

290 IF TYOJY THEN 70 

300 TY=JY-2 

310 TX«JX 

320 GOTO 70 

330 CLS 

340 DEFINT A-Y 
350 SCREEN 0,0 
360 GOSUB 1110 
370 COLOR 3,4 
380 CLS 
390 DIM CC^d) 

400 JÍ=CHR*<128> 

410 N^=CHR*(32) 

420 E*-CHR*(42) 

430 CCí: <0) =CHR» (129) +CHR5 (130) +CHRf ( 131 ) 
+NÍ 

440 CCt ( 1 ) =CHR* (129) +CHR^ í 132) +CHRÍ ( 131 ) 
+N^ 

450 JX*19 
460 JY-24 
470 NC*20 
480 TX=JX 
490 TY=JY 
500 Z-.5 
510 CX*36 
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520 CY=0 

530 X*JX 

540 Y»JY 

550 RETURN 

560 LOCATE 0,0,0 

570 PRINT N$+N«+N*: 

580 CX=36 
590 NC=NC-1 
600 RETURN 

610 IF TX-CX OR TX*CX+1 THEN 830 
620 LOCATE TX,TY+2,0 
630 PRINT Ní; 

640 LOCATE TX,TY,0 
650 PRINT Jí; 

660 LOCATE TX,TY,0 
670 PRINT Ní; 

680 TX=JX 
690 TY»JY 

700 IF NCOO THEN 220 
710 CLS 

720 LOCATE 10,10,0 
730 PRINT "SCORE :";S? 

740 LOCATE 9,20,0 

750 PRINT "UMA OUTRA ?"; 

760 IF INKEYÍO"" THEN 760 
770. X**INKEY:« 

780 IF X:T="" THEN 770 

790 IF X#0"N" AND X:T<>"n" THEN RUN 

800 LOCATE 0,0,1 

810 CLS 

820 END 

830 LOCATE TX,TY,0 
840 PRINT Eí; 

850 LOCATE TX,TY+2,0 
860 PRINT Ní; 

870 BEEP 

880 FOR 1=1 TO 50 

890 NEXT I 

900 S-S+1 

910 DX=CX 

920 CX«36 

930 FOR 1=1 TO 24 
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940 Z—Z 
950 H*Z+.5 
960 LOCATE DX, 1-1,0 
970 PRINT N*+Ní+N#í 
980 LQCATE DX,I,0 
990 PRINT CC^(H); 

1000 BEEP 

1010 FOR J*1 TO 10 

1020 NEXT J 

1030 NEXT I 

1040 NC*NC-1 

1050 FOR 1=1 TO 500 

1060 NEXT I 

1070 CLS 

1080 IF NC=0 THEN 710 

1090 TY=JY 

1100 GOTO 70 

1110 FOR 1=0 TO 39 

1120 READ A 

1130 VPOKE 3072+I,A»4 

1140 NEXT I 

1150 RETURN 

1160 DATA 4,14,31,4,4,4,4,4 
1170 DATA 0,0,0,25,63,0,0,0 
1180 DATA 31,60.56,63,63,0,0,0 
1190 DATA 0,0,0,56,32,0,0,0 
1200 DATA 0,0,0,63,63,56,60,31 
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SERPENTE 


Neste jogo, vocé é uma serpente que se move ondulando na tela. 
A mudança de direção se efetua apertando qualquer tecla. Para que 
vocé possa se mover, precisa se alimentar. Felizmenie, está cercado 
de muitos cogumelos. Mas cuidado! Alguns são excelentes, mas você 
deve evitar rigorosamente os cogumelos vazios, porque estes são 
venenosos. Cada cogumelo lhe fornece calorias suficientes para 
avançar dez linhas. Tente não morrer de fome. sem no entanto 
acabar envenenado! 


10 REK 

20 REM * SERPENTE # 

30 REM 
40 KEY ÜFF 
50 WIDTH 39 
60 G05UB 460 
70 

80 IF DÍO"" THEN D*-D 
90 X-X+D 

100 IF X<1 THEN X=2 
110 IF X>39 THEN X-38 
120 C*VPEEK(X+40*Y) 
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130 IF C-PQ THEN 240 

140 IF C=TR THEN S=S+10: H=H+10: BEEP 
150 VPOKE X+Y*40,SP 
160 LOCATE 0,24,0 
170 PRINT 

100 VPOKE RND( 1 > *38+921 ,TR 

190 IF RND<1)>.5 THEN VPOKE RND ( 1 ) *38+92 

1,PQ 

200 S=S-1 

210 IF S=ü THEN 240 
220 H*H+I 
230 soro 70 
240 BEEP 

250 LÜCAIE 0,24,0 
260 PRINT 

270 VPOKE X+(Y-1>*40,SP 
280 FOR I«1 TO 5 
290 BEEP 

300 FOR J=1 TO 50 
310 NEXT J 
320 NEXT I 

330 IF INKEYi^O"” THEN 330 

340 IF H>R THEN R^H 

350 LDCATE 4,20 

360 PRINT "SCORE :":Hi 

370 LOCATE 23,20 

380 PRINT ‘'RECORD :’*;R; 

390 LOCATE 15,23,1 
400 PRINT "UMA DUTRA 
410 D4=INLEY^ 

420 IF D^="" THEN 410 

430 IF >'*N" AND THEN 460 

440 CLS 

450 END 

460 GOSUB 550 

470 GOTO 70 

480 CLS 

490 SCREEN 0,0 
500 DEFINT A-Z 
510 COLOR 5,3 
520 SP* 128 
530 PQ= 130 


— 52 — 



540 TR=129 

550 CLS 

560 S=1000 

570 H*=0 

580 D=1 

590 X=19 

600 Y»10 

610 GQSUO 630 

620 RETURKl 

630 RESTQRE 

640 FOR 1=0 TO 23 

650 READ A 

660 VPOKÉ 3072+I,A*4 
670 NEXT I 
680 RETURN 

690 DATA 51,63,45,63,63,30,12,0 
700 DATA 30,63,63,30,12,12,30,0 
710 DATA 30,33,33,30,12,12,30,0 
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MAESTRO 


Este programa nâo é na realidade um jogo, mas constituí ótima 
demonstração das possibilidades musicais do Spectravídeo. Apenas 
duas vias são utilizadas para esta invenção em "lá" menor de J. S. 
Bach. Cabe a você acrescentar uma terceira. 


10 REM «-H-********* 

20 REM * MAESTRO * 

30 REM *********** 

40 KEY OFF 

50 CLEAR 5000 
60 SCREEN 1,2 

-70 A^="V5T32L3204R32EA05C04BEB05DL16CE04 
G#aSE*' 

BO Al:í*='*S/5T32L3202A1603A8G+16AEA04C03BEB 
D4D'' 

90 Aí =AÍ + •' □4L32AEA05C04BEBD5DL 1 6C04 A8R 1 6 

11 

100 A1Í=A1Í+'*L16C03AS+EL32AEAÜ4CÜ3BEBÜ4D 

n 

1 10 AÍ=*AÍ+”05L32R32ECE04AQ5C04EGL16FA05D 
FL32FD*' 

120 Al Í=A 1 í + •' L 1 6Ca3A04C03AL3204D03AFADFD 
2A03C02L16B" 

130 Bí=*''Q4B05D04GBDFL16EGQ5CE" 

140 Blí=“03DGBL32BeEGCE02GBL16A03CL32DF0 
2B03D02L 1 6GB03L32CE02A03CD2L 1 6FDL32GD3BF 
GCG04CED03G04DF '• 

1 50 Bí =BÍ+ " L32EC04A05C04L 1 6F05DL32D04BBB 
L 1 6E05CL32C04AFAL 1 6DB05C8RB “ 


55 




1 60 Df ^ ••04L32R32G05CED04G05DFL 1 6EGD4B 
05GL32C04GD5CED04G '* 

1 70 B 1 1 " L 1 6EC03BGL32D4C03G04CED036Q 
4DFL16EC8" 

180 CÍ="Ü5DFL16ECGE" 

190 C1*=*'R16R32L326EGCEÜ3GB" 

200 C$=Ct+ "06L32C05AEACE04A05CL 1 6DF+A06C 

II 

2 1 0 C 1 S^C 1 S+"Ll 6A04CEGL32F+ADF +03A04DU3F 
+A" 

220 Ct=CÍ + ’'L3205BGDGQ4B05D04GBa5L16CEGBL 
32AF+" 

230 C 1 S-^^C 1 J:+ " L 1 6GB04DF+L32EGCE03GG4C03EG 
L16F+" 

240 D;í- " D-»-F+04BÜ5D+04F+AL 1 6G05GL32GECE ” 
250 D1|:="AB04D+L32R32ECE03AÜ4CEG" 

260 DÍ*OÍ+"04L16A05F+L32F+DD4BD5D04L16GO 
5EL32EC04A0bC“ 

270 D1$=D1Í+"F+D03B04D03GB04DF+EC03AO^CO 
3F+A04C16" 

280 DÍ=Df+'*04F+ü5GF+ED+F+D4B05D+E8R8L32'* 
290 Dlí^Dlí+"C03BD4C03AL16B02B03L32E04E0 
3B6E02BGB" 

300 Eí * '■ R32GB-GEGC+EGEC+E04 AGFEDÜ5FA-FDF 
Q4BD5DFD04B05DÜ4GFEDC05EGECE04A05CD+C04A 
□5CD4F+ED+C+03BÜ5D " 

310 El í = ■• L 1 6E03EGB-C+aR8Q4DQ3DFA-02BBR80 
4C03CEF I-O2ABR0D3B ■■ 

320 Fí = " FD04BÜ5D04G+BG5DG4BG+BER32R1 6R32 
EA05C04BEB05DL16C04AG+EL32AÜ5CEC04A05C04 
F+AO5CQ4AF+AD+G5C04BAG+B'' 

330 F 1 •'02BD3DF02G+8R3204L32DC03BG4L 1 6C 
Q3AG+EL32AEA04C03BEB04DCEAECEG3A04C03F+A 
04C03AF+AD+F+L 1 6E" 

340 6Í»'‘05D04BG+BDFG+FDF03B04FEDCEAECE03 
AD4CD+CD3AQ4CQ3F+04C03BAL 1 66+04BG+ER32L3 
2EAÜ5CD4BEBG5DCG4A" 

350 Glí=**G+BG+ED2BG+EAÜ3CEC02A03C02D+SR3 
2L3203BG+EDBG+DL 1 6CEÜ2G+G3E02A " 

360 HÍ-'*05CED04B05DFECEGFEDC04B05CDEFDG+ 
DeDCAFD04Ba5D04G+B05CÜ4AEABG+AECE03A8" 
370 Hlí-‘*n3F+02B03G+CAÜB-G+FD02BG+ADEFD+ 


- 56 - 



Ea3EQ2ABAa’* 

FÜR 1=1 TO 10 
390 X« = X:T+CHR*<0) 

400 MEXT I 

/ 4 1 0 X 4 CHRÍ ( 30) +CHR:Í ( 63 ) +CHR:> U 27 ) +CH 

R* (127) +CHR# (63) +CHR:Í (30) 

420 + CHf<* (192) +CHRÍ (160) +CHRÍ (144) + 

' CHRí (144)+CHR*(144)+CHR:Í (160) 

430 FOR 1=1 TO 8 
440 Xí*X^+CHRí (128) 

450 NF X í I 

46') X:t=Xf + CHRÍ(0)+CHRÍ (O) 

470 SPRITE«(1)=X$ 

480 GOSUB 660 
490 PLAY A$,A1S 
500 GOSUB 660 
510 PLAY B^,B1# 

520 GOSUB 660 
530 PLAY CS,C1Í^ 

540 GOSUB 660 
550 PLAY Dí,Dlí 
560 GOSUB 660 
570 PLAY EÍ,E1* 

580 GOSLB o60 
590 PLAY Fí,Fl^ 

600 GDSüB 660 
610 PLAY G»,G1Í 
620 GOSUB 660 
o30 PLAY 
640 GÜSUB 660 
650 GOTO 490 
660 FDR 1=1 TO 15 
670 X-RNU(1)*240 
680 Y=RNUa)*176 

690 PUT 5PRITE I , (X , Y) ,RND ( I ) *15 , 1 

700 FQR J=1 TG SÜ 

710 NExr J 

720 NEXT I 

730 RETURN 
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GRANDE-PREMIO 




4 

No volante de sua fórmula 1, tente percorrer a maior distância 
oossfvel. O seu carro dispÕe de duas marchas. Matenha a barra de 
espaço apertada para ficar na segunda marcha. A direção é coman- 
dada pelas teclas do cursor. Na segunda marcha, o seu carro roda 
duas vezes maís depressa. Mas, cuidado com acidentesi 


10 REM *♦*♦«-**********♦♦ 

20 REM * BRANDE-PREMIO * 

30 REM «»««*«•»«-»«***«««« 

40 KEY OFF 
50 WIDTH 39 
60 BQSUB 450 
70 H-STICK(O) 

80 PX=PX+ÍH=»7)-<H*3) 

90 IF STRIG(O) THEN T=2 ELSE T*1 

100 IF VPEEK(PX+40)OCR THEN 240 

110 RX*RX+ (RND ( 1 X . 5) - (RND < 1 X . 5) 

120 IF RX<RN THEN RX*RN 

130 IF RX>RM THEN RX*RM 

140 VPOKE XP,CR 

150 LOCATE RX,24,0 
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160 PRINT R4í 
170 VPOKE PX,V r ^ 

180 K=K+T 

190 DL«(2-f)<r50 

200 FOR I«1 TO DL 

210 NEXT I 

220 XP»*PX 

230 GOTO 70 

240 VPOKE XP,CR ' > 

250 FOR 1=1 TO 5 
260 VPOKE- PX t-40,A 
270 FOR J-1 TO 100 
280 NEXT J 
290 BEEP 

300 VPOKE PX+40,V 

310 FOR a»l TO 100 

320 NEXT J 

330 NEXT I 

340 LOCATE 10,10,0 

350 PRINT "KMS PERCORRIDOS :";K; 

360 IF INKEY^O"" THEN 360 

370 LOCATE 14,16,0 

380 PRINT "UMA OUTRA ?'*; 

390 Ü*=INKEYX 

400 IF THEN 390 

410 IF D^<>"N" AND DíO"n" THEN RüN 

420 LOCATE 0,0,1 

430 CLS 

440 END 

450 CLS 

460 SCREEN 0,0 
470 GOSUB 680 
480 DEFINT A-Y 
490 COLOR 14,12 
500 A=221 

5 1 0 Rf=CHRt (219) +CHRÍ ( 2 1 9 > + CHRf < 2 1 9 i 

520 CR-219 

530 RX=18 

540 V=12S 

550 RY-24 

560 T=1 

570 PX=420 
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580 XP-PX 

590 LOCATE 0,0,0 

600 POR I»0 TO 24 

610 LOCATE RX,1,0 

620 PRINT Rí 

630 NEXT I 

640 VPOKE PX,V ' 

650 RM*34 

tj60 RN=2 

670 RETURN 

680 FOR 1=0 TO 7 

690 READ A 

700 OPOKE 3072+I,A>4 

710 NEXT I 

720 RETURN 

730 DATA 18,0,10,51,51,18,0,18 
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CARANGUEJOS 


Agora, vocé deve ajudar a uma pobre tartaruga para que ela volte 
para o mar, evitando os caranguejos vorazes que estão patrulhando a 
praia. Cada tartaruga levada ao objetivo ganha um ponto. Vocé 
dispõe de cinco vías para tentar marcar um escore máximo. Utilize 
as teclas do cursor para avançar ou recuar. 


10 REM *«■*■»*#*«*****»# 

20 REM * CARANGUEJOS * 

30 REM *»*«*««««»»««»« 

40 SCREEN 0,0 

50 DEFINT A-Z 

ÓO KEY OFF 

70 WIDTH 39 

00 GDSUB 990 

90 GOSUB 1130 

100 GOSUB 840 

IIO LOCATE 0,20',0 

120 PRINT "VIA(S) REST.'*;NP; 
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1 30 Aí-R I GHT$ ( , U +LEFTÍ ( Âí , 38 ) 

X40 E<í*RIGHTí (Ei.t,38)+LEFTÍ <Bí , 1 ) 

150 LOCATE 0,X1,0 
160 PRIWr Aí; 

1.70 LOCATE 0,X2,0 
180 PRINT Bí; 

190 LOCATE 0,X3,0 
200 PRINT Aí; 

210 LOCATE 0,X4,0 
220 PRINT Bí; 

230 DÍ=INKEYÍ 

240 FY=PY+(STICK(0) *1 ) - (STICK(0>^5) 
250 IF PY>10 THEN PY=10 
260 IF PY»2 THEN 370 
270 C=VPEEK(PX+PY»40+1) 

280 IF C032 AND C0128 THEN 550 
290 LOCATE PX,YP,0 
300 PRINT Ní: 

310 LOCATE PX,PY,0 
320 PRINT Pí; 

330 YP=PY 
340 T«T+1 

350 IF T>500 THEN 660 
360 GOTO 110 
370 LOCATE PX,YP,0 
3B0 PRINT Ní; 

390 LOCATE PX,PY,0 
400 PRINT Pí; 

410 BEEP 

420 FOR I*=l Tü 200 
430 NEXT I 
440 LOCATE PX,PY,0 
450 PRINT Ní; 

460 PY*10 

470 YP^PY 

480 S“S+1 

490 LOCATE 0,0,0 

500 PRINT "SCORE ;";S; 

510 LOCATE 19,0 

520 PRINT "RECORD :";R; 

530 GQSUB 1040 
540 GOTO 110 
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550 NP*NP-1 

560 LOCATE PX,YP,0 

570 PRINT N*; 

580 LOCATE PX,PY,0 
590 PRINT CHR:M128); 

600 GOSUB 1090 

610 IF NP-0 THEN 660 

620 PY=10 

630 YP*PV 

640 GOSUB 1040 

650 GOTO 110 

660 CLS 

670 IF S>R THEN R^S 

680 IF T<500 THEN 710 

690 LOCATE 10,8,0 

700 PRINT ■’** TEMPO ESGOTADO 

710 LOCATE 10,12,0 

720 PRINT "SCQRE :"sS5 

730 LOCATE 10,16,0 

740 PRINT "RECORD :";R; 

750 LOCATE 10,20 

760 PRINT "UMA OUTRA ?"i 

770 IF INKEY^O"" THEN 770 

780 Dí:*INKEYÍ 

790 IF Dií-"" THEN 780 

800 IF DÍO"N" AND D«0'*n" THEN 100 

810 CLS 

820 LOCATE 0,0,1 
830 END 
840 CLS 
850 COLOR 1,11 
860 P#=CHR#(128) 

870 Ní*CHR*<32) 

880 S=0 
890 NP»5 
900 PX»19 
910 PY«10 
920 YP=PY 
930 XI «4 
940 X2=5 
950 X3=7 
960 X4=8 
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970 T=0 

900 RETURN 

990 FOR 1=1 TO 39 

1000 READ A 

1010 A:t=AÍ+CHR:MA> 

1020 NEXT I 
1030 

1040 X=RND ( 1 ) *35+2 

1050 AÍ=RIGHT:t < A:í , X) +LEFTÍ í Aí , 39-X) 

1060 RETURM 

1070 DATA 32,129,130,32,32,129,130,32,32 

,32,129, 130,32,32,32,32,32, 129, 130,32 

lOQO DATA 32,32,129,130,32,32,32,129,130 

,32,32,129,130,32,32,129,130,32,32 

1090 RLAY •'T10003G1604C203G804C16E2T150C 

BE 1 6G0K + 1 ÓF0D+ 1 6E8C 1 6O3A0G 1 ib04ü4C32E 1 6 

1100 FUR 1=1 rO 4000 

1110 NEXT I 

1120 RETURN 

1 1 30 FOR I =0 TO 23 

1140 READ A 

1150 VFOKE 3072+I,Aí^4 

1160 NEXT I 

1170 RETURN 

li 80 DATA 12,42,63,30,30,63,45,0 
1190 DATA 7,15,31,31,18,16,12,0 
1200 DATA 56,60,62,62,18,2,12,0 
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QUEBRA-TIJOLOS 


Este é um jogo que vemos com freqüéncia nos fliperamas. Graças 
ao seu computador, agora você vai poder jogar sem gastar um centavo. 
0 objetivo do jogo é simples: tentar destruir um muro de alvenaria 
com uma bola que você deve jogar com a raquete. Você ganha um 
ponto por tijolo quebrado. Quando o muro estiver totalmente 
destruTdo, outro muro aparece. Vocé dispõe de dez bolas para 
tentar marcar um escore máximo. Utilize as teclas do cursor para 
mover a raquete. 


10 REH ******♦*****♦*♦♦♦♦ 

20 REM ♦ QUEBRA-TIJOLOS * 

30 REM 
40 KEY GFF 
50 SOSUB 600 
60 LQCATE BX,BY,0 
70 PRINT Ní; 

80 BX=BX+DX 
90 BY=^BY+DY 

100 IF VPEEK(BX+BYx40) 032 THEN DY=-DY:S 

=S+1:BEEP 

110 LOCATE BX,BY,0 
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120 PRINT B«; 

130 IF BY=2i RND ABS(BX-RX-3) 1 THEN 290 

140 IF BY=21 AND BX>3 AND BX<36 then LOC 

ATE BX,BYiPRINT NÍ ; : BX=BX+CH 

150 IF BY»21 THEN BEEP:DY=-DY 

160 IF BY=1 THEN BEEP:DY=-DY 

170 IF BX=2 OR BX=37 THEN BEEP:DX=-DX 

180 D=2#( <STICK(0)*7)-(STICK.(0)=3) > 

190 IF DOO THEN DO=D 
200 IF STICK(0)=0 THEN DO=0 
210 RX=*RX+DO 
220 CH*SGN(D0) 

230 IF RX<0 THEN RX-0 
240 IF RX>33 THEN RX=33 
250 LOCATE RX,RY,0 
760 PRINT RT; 

270 IF S“204 THEN GOSUB 930 

280 GOTO 60 

290 NB»NB+1 

300 IF NB=11 THEN 410 

310 LOCATE BX,BY,0 

320 PRINT Ní; 

330 FOR 1=1 TO 3 
340 BEEP 

350 FOR J=1 tü lÜU 

360 NEXT J 

370 NEXT I 

380 D0=0 

390 GOSUB 870 

400 GOTO 60 

410 LOCATE 13,5,0 

420 S=S+404*K 

430 PRINT "SCORE 

440 IF S>R1 THEN R1=S 

450 LOCATE 13,10,0 

460 PRINT "RECURD 

470 LOCATE 13,15,0 

480 PRINT "UMA OUTRA 

490 NB^O 

500 K»0 

510 S=0 

520 D^»INKEYÍ 
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THEN 520 


530 IF D^O”'* 

540 D*=INKEY# 

550 IF D»='"' THEN 540 

560 IF D*0''N" AND D;í<>*'n" THEN 50 

570 LOCATE 0,0,1 

580 CLS 

590 END 

600 CLS 

610 5CREEN 0,0 
620 GQSUB 1010 
630 WIDTH 40 
640 COLOR 15,13 
650 DEFINT A-2 
660 BRi:*CHR*< 128) 

670 NÍ=CHRÍ(32) 

680 R*=N#+Ní+CHR* (223) +CHR* (223) +CHRT ( 

3) +NÍ+NÍ 

690 BÍ=CHRÍ(249) 

700 FOR BX=1 TO 38 
710 LOCATE BX,0,0 
720 PRINT CHR*(219); 

730 NEXT BX 
740 FOR BY«1 TQ 21 
750 LOCATE 1,BY,0 
760 PRINT CHR^(2i9>; 

770 LOCATE 38,BY,0 
780 PRINT CHRÍ<219); 

790 NEXT BY 
800 FOR BY=2 TO 7 
810 FOR BX=3 10 36 
820 LOCATE BX,BY,0 
830 PRINT BFVÍ; 

840 NEXT BX 
850 NEXT BY 
860 RX*16 
870 RY=22 
880 BY=21 

890 BX=1NT tRND(l>*34)+3 
900 DY=-1 

910 DX*(INT(RND(l>*2)-.5)*2 
920 RETURN 
930 K*K+1 


- 71 - 



940 S=0 

950 LOCATE BX,BY,0 
960 PRINT Nt; 

970 LOCATE RX+2,RY,0 

980 PRINT N^,N«,N#; 

990 GOSUB 700 

1000 RETURN 

1010 RESTGRE 

1020 FOR 1=0 TO 7 

1030 READ A 

1040 VPOKE 3072+1, Att4 

105Ò NEXT I 

1060 RETURN 


1070 DATA 63,33,33,33,33,33,33,63 
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PERSEGUIÇÃO 


O ladrão fugiu, levando o dinheiro (representado por um ás de 
espadas) e se escondeu na cidade. Você tem 50 minuros para desço- 
bri*lo e prendé io. Cuidado, nada dc precipitação. Com efeito, se 
você $e atirar atrás dele, sem refletir, ele terá todas as chances de 
fugir. O melhor meio de agir é abordá lo de lado (o mais eficaz 
dos golpes, embora arriscado). Se você não se sentir bastante seguro. 
ataque*o de frente, o que é mais fácil, porém menos eficaz porque 
é menos discreto. Ainda um conselho: não tente persegui*lo; isso 
de nada adiantaria, já que ele é tão rápido quanto vocé. £ melhor 
que você observe os seus movimentos como um verdadeiro detetive. 
Quando vocé vir que ele está girando, aproxime se sem fazer barulho 
e apareça no momento certo. Mas lembre-se, o tempo exige rapidez! 


10 REM *»**#***«»»»t^#^ 

20 REM * PERSEGUIÇÃO ♦ 

30 REM *»#»#*##íMHr**** 

40 KEY DFF 

50 WIDTH 39 

60 GOSUB 1060 

70 S“0 

80 N»32 

90 V=128 

100 P=129 

110 GOSUB 670 

120 ST*STICK<0) 
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130 DX»(ST»7)-<ST*3> 

140 DY«<ST=1)-(ST*5) 

150 Z=Z-.2 

l&O LOCATE 0,24,0 

170 PRINT '*TEMPO s " ; INT ( Z+ 1 ) ; 

180 IF Z<0 THEN 370 
190 PX»PX+DX 
200 PY-PY+DY 
210 C=VPEEK‘(PX+PY*40) 

220 IF C^V THEN 1010 

230 IF C032 THEN PX=XP=PY»YP 

240 VPOKE XP+YP»40,N 

250 VPOKE PX+PY»40,P 

260 YP^PY 

270 XP=PX 

280 VX*VX+CX 

290 VY=VY+CY 

300 IF VPEEK(VX+VY*40)ON THEN GDSUB 510 

310 IF VPEEK(VX+VY»40)ON THEN 280 

320 VPOKE XV+YV*40,N 

330 VPOKE VX+VY*40,V 

340 XV=VX 

350 YV-VY 

360 GOTO 120 

370 IF INKEY^O'"' THEN 370 

380 FOR 1=1 Tü 1000 

390 NEXT I 

400 LOCATE 10,6 

410 PRINT “TEMPO ESGOTADO’*; 

420 LOCATE 10,10 
430 PRINT “SCORE :“;S; 

440 LOCATE 10,18,1 
450 PRINT “UMA OUTRA ?“; 

460 D*=INKEYÍ 

470 IF DS*““ THEN 460 

480 IF Dí<>“N“ AND DS<>“n" THEN RUN 

490 CLS 

500 END 

510 DT-DT+1 

520 GOSUB 620 

530 IF VPEEK(XV+CX+(YV+CY)*40)=N THEN VX 
=X V+CX : VY=YV+CY : RETURN 
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540 DT*DT-2 
550 GOSUB 620 

560 IF VPEEK(XV+CX+(W+CY)*40)=»N THEN VX 

=XV+CX : VY-YV+CYr RETURN 

570 DT=DT-1 

580 GOSUB 620 

590 VX=XV+UX 

600 VY=YV+CY 

610 RETURN 

620 IF DT>4 THEN DT=^DT-4 
630 IF DT<1 THEN DT»DT+4 
640 CX»<DT*1)-(DT=3) 

650 CY«(DT=2)-(DT*4) 

660 RETURN 
670 CLS 

680 FOR VX=0 TO 39 

690 VPOKE VX+40,219 

700 VPOKE vx+aao,2i9 

710 NEXT VX 

720 FOR VY=2 TO 22 

730 VPOKE VY*40,219 

740 VPOKE VY«40+39,219 

750 NEXT VY 

760 FOR VX*1 TO 150 

770 GOSUB 970 

780 VPOKE PX+PY*40,219 

790 NEXT VX 

000 GOSUB 970 

BIO VX=PX 

820 VY=PY 

030 VPOKE VX+VY*40,V 

840 XV*VX 

850 YV=VY 

860 GOSUB 970 

870 VPOKE PX+PY*40,P 

880 XP=PX 

B90 YP=PY 

900 Z=50 

910 CX=í0 

920 CY-0 

930 DX=0 

940 DY*0 
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V50 DT=0 
960 RETURN 

970 PX = INT(RND(n*37)+l 

980 PV=INT(RND(l)*21)+2 

990 IF VPEEK (PX‘**Py*40>< >N THEN 970 

1000 RETURN 

lOro FOR 1=1 TO 5 

1020 PLAY "DC“ 

1030 NEXT I 
1040 S=S+1 
1050 GOTO 110 
1060 SCREEN 0,0 
1070 COLOR 6,14 
1080 CLS 
1090 DEFINT A-Y 
1100 PX=RND(-TIME) 

1110 RESTORE 

1120 FOR 1=0 TG 15 

1130 READ A 

U40 VPOKE 3072+I,A*4 

1150 NEXT I 

1160 RETURN 

1170 DATA 30, 63, 45, 63, 3o, 30, 30, O 
1130 DATA 28,28,0,62,0,8,20,20 
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ROBOS 


Agora vocé está $ó, abandonado em um planeta defendido por 
robôs assassinos. 0 chão está coalhado de minas queé preciso evitar 
a todo custo. As minas são representadas na tela por losangos pretos. 
No começo do jogo, cinco robôs se encontram no terreno. Sem 
perder um segundo, precipitam-se sobre vocé seguindo sempre o 
caminho mais curto. Felizmente, os robôs s3o cegos e não véem as 
minas que se encontram entre vocé e eles, com isso, movendo-se com 
cuidado, vocé pode elÍmÍná-los. 

Quando todos os robôs forem eliminados, o jogo recomeça com 
um robô suplementar. Çe vocé passar por cima de uma mina. ou se 
um robô o matar, nem tudo está perdido. Com efeito, vocé dispõe 
de cinco vidas. 


10 REM **♦**♦♦*♦ 

20 REM e ROBOS * 

30 REM *»»»**««» 

40 KEY OFF 
50 WIDTH 39 
60 SCREEN 0,0 
70 DEFINT A-Z 
80 NH-5 
90 Ni=5 
100 NM=40 
110 NR-Nl 
120 DIM R(30, 1) 

130 GOSUB 1320 

140 GOSUB 770 

150 GOSUB 670 

160 C«VPEEK(HX+HY*40> 
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170 If ÜON AND U<'"H THt.N 440 
iQC VPOKE X+Y*40,N 
190 VPOKE HX-^HY*40,H 
200 X=HX 
210 Y=HY 

220 FOR J»1 TO 200 
230 NEXT J 
240 T«0 

250 FOR 1=1 TO NR 

260 IF R(I,0)=0 THEN 370 

270 T=1 

200 RX-R( I ,0)+SGNíHX-R< I ,0) ) 

270 RY=R < I , 1 ) +SGN (HY-R (1,1)) 

300 C=VPEÊK(RX+RY*40) 

310 IF C»M OR C=R THEN S^S+l:VPOhE RU, O 

)+40»RU,n ,N:R(I,0)=0:BÜT0 370 

320 IF C=H THEN 440 

330 VPOKE R(I,0)+40*R<I,1) ,N 

340 VPOKE RX+40*RY,R 

350 RU ,0)*RX 

360 R(I,1)=RY 

3/0 NtXT 1 

330 IF T=0 THEN 400 

370 GOTO 150 

400 S=S+10 

410 IF INKEYÍíO*"' THEN 410 

420 IF NR<30 THEN NR=NR+1 

430 GOTO 140 

440 NH=NH-1 

450 VPOKE X+40*Y,N 

460 VPOKE HX+40«HY,H 

470 A1^=”V12D2D3D8D2F3E8E3DBD3C+8D2" 

480 A2*=^"F2F3F8F2A3G0G3FBF3E8F2” 

470 A3$*"03A2B-3B-8A2B-3B-SA3ASB-3B-9A2" 
500 PLAY A1Í,A2Í,A3* 

510 FOR 1=1 TO 5000 
520 NEXT I 

530 IF INKEYÍO"'* THEN 530 
540 IF NH>0 THEN NR=N1;G0T0 140 
550 CLS 

560 SCREEN 0,0 
570 LOCATE 9,10 
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580 PRINT "SCÜRE :”;S« 

590 LDCATE 9,20 

600 PRINT "UMA OUTRA 

610 IF INKEYíO"" THEN 610 

620 DÍ=INKEYÍ 

630 IF Dí="" THEN 620 

640 IF DÍO"N" AND DíO"n" THEN RUN 

650 CLS 

660 END 

670 J=STICK(0) 

680 IF J=1 THEN HY==HY-1 

690 IF J=2 THEN HY=HY-1 : HX=HX+1 

700 IF J*3 THEN HX=HX+1 

710 IF J=4 THEN HX^HX+1 : HY*HY+1 

720 IF J=5 THEN HY=HY+1 

730 IF J=6 THEN HY=HY+1 : HX==HX-1 

740 IF J=7 THEN HX*HX-1 

750 IF J=8 THEN HX=HX-1 : HY=HY-1 

760 RETURN 

770 CLS 

780 COLOR 1,13 

790 PRINT "SCQRE :";S 

800 IF NH*1 THEN 850 

810 FOR HX=1 TO NH-1 

820 LOCATE 19+HX,24,0 

830 PRINT 

840 NEXT HX 

850 FOR HX»0 TO 39 

860 VPOKE HX+40,M 

870 VPOKE HX+8S0,M 

880 NEXT HX 

890 FOR HY=2 TO 22 

900 VPOKE HY*40,M 

910 VPOKE HYtt40+39,M 

920 NEXT HY 

930 FOR 1=1 TO NM 

940 HX=INTÍRNDÍ1)*37)+1 

950 HY*INT(RNDU)*21)+2 

960 VPOKE HX+40«HY,M 

970 NEXT I 

980 FOR I«l TO NR 

990 R(I,0)*INT(RND<n*37)-«-l 
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1000 R(I,l>=INT<RND(l)*21)+2 
1010 IF VPEEK(RU,0)+40*R(I,I>><>32 THEN 
990 

1020 VPOKE R<I,0)+40*R<I,1) ,R 
1030 NEXT I 

1040 HX=*INr(RND<l)*37) H 

1050 HY=INT(RND<l)*21>+2 

1060 IF VPEEK(HX+HY*40)<>32 THEN 1040 

1070 IF VPEEK (HX+HY»40-43 )<>32 THEN 1040 

1000 IF VPEEK<HX+HY«40-40)<>32 THEN 1040 

1090 IF VPEEKÍHX+HY*40-39K>32 TMEN 1040 

1100 IF OPEEK<HX-HY*40-1)<>32 THEN 1040 

1110 IF OPEEK (HX+HY*40+1><>32 THEN 1040 

1120 IF VPEEK (HX+HYít40+39> 032 THEN 1040 

1130 IF VPEEk(HX+HY*40+40)<>32 THEN 1040 

1140 IF VPEEK(HX+HY*40+41)<>32 THEN 1040 

1150 X*HX 

1160 Y=HY 

1170 FOR 1=1 TO 5 

USO VPOKE HX+HY*40,H 

1190 BEEP 

1200 FOR J*1 TO 50 
1210 NEXT J / 

1220 VPOKE HX+HY*40,H 

1230 FOR J»1 TO 50 

1240 NEXT J 

1250 NEXT I 

1260 RESTORE 

1270 FOR 1=0 TO 15 

1280 READ A 

1290 VPOKE 3072+I,A*4 

1300 NEXT I 

1310 RETURN 

1320 H-129 

1330 H«=CHQ»(129> 

1340 M=219 
1350 R=128 
1360 N=32 
1370 RETURN 

1300 DATA 30,63,45,63,63,18,30,30 
1390 DATA 28,28,8,62,8,8,20,20 
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PÁRA-QUEDAS 


Procure, saltando dc um helicóptero em vôo. atingir o alvo que 
se encontra no chão. Uma primeira pressão em uma tecla permite 
descer vertícalmentc em queda livre. Uma segunda pressão faz abrir 
o pára-quedas. Então a sua descida contínua mais devagar e com um 
angulo de 45 graus, pois o vento o empurra. Quanto mais você 
esperar para abrir o pára-quedas, menos será desviado da rota. Mas, 
não espere muito tempo, porque abaixo de cem metros, o pára 
quedas não sc abre mais. 


10 REM *************** 

20 REM * PARA-QUEDAS * 

30 REM *«««»»«****»««« 

40 KEY OFF 
50 WIDTH 39 
60 S*0 
70 ÜOSUB 510 
80 H=H-1 

90 IF H=^-l THEN LOCATE 0,0;PRINT 
36sH=36 

100 LOCATE H,0:PRINT 
110 D^«INKEYÍ 

120 IF D#*”'* THEN GOTO 170 
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130 IF PV>16 THEN GOTO 170 

140 IF SP=1 THEN LET 0P=li60T0 160 

150 SP=1 

160 IF GP»0 THEN PV»1 : PH-H+1 . 5 

170 IF SP=0 THEN GOTO 340 

100 IF ÜP«0 THEN PV-PV+1 

190 IF OP=i THEN PV==PV+. 5; PH=PH-. 5 

200 IF PV>21 OR PH<0 THEN GOTO 360 

210 IF QP*1 THEN GOTO 280 

220 LOCATE Hü,V:PRINT N*+NÍ; 

230 V=PV 
240 HO»PH 

250 LOCATE H0,V:PR1NT C*; 

260 FOR 1=1 TO 40INEXT I 
270 GOTO 80 

280 LOCATE HO,V:PRINT N^^^Nf; 

290 LOCATE H0,V+1:PRINT N*; 

300 V=PV 
310 HO=PH 

320 LOCATE HO,V:PRINT P$; 

330 LOCATE H0,V+1:PRINT Qí; 

340 FOR I»1 TO 60:NEXT I 
350 GOTO 80 

360 IF ABS( (H0-.5)-PA) >1 THEN GOTO 420 

370 FOR I-l TO 500 

380 NEXT I 

390 S=S+1 

400 GOSUB 510 

410 GOTO 80 

420 CLS 

430 LOCATE 10,10:PRINT "SCORE 
440 LOCATE 10,14:PR!NT "UMA DUTRA 
450 Dí=INKEYí: 

460 IF D4="" THEN GOTO 450 

470 IF Di<>"N" AND DÍO"n" THEN RUN 

480 CLS 

490 LOCATE 0,0,1 
500 END 

510 SCREEN 0,0 
520 COLOR 15,5 
530 RESTORE 
540 FOR 1*0 TO 79 
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550 READ A 

560 VPOKE 3072+1, A*4 

570 NEXT I 

580 N*-CHR5<32) 

590 MÍ*NÍ+NÍ+N« ■ 

600 Hí=CHR^ < 128) +CHRÍ (129) +CHRS (130) +NÍ 
610 CÍ=CHRS(131)+CHR«(132) 

620 P*=CHR:»(133)+CHR«(134>+N« 

630 Q«*CHR$ (135) +CHR< (136) 

640 A*=CHRÍ(137)+CHRÍ (137) 

650 H=36 

660 PA*INT(RND(1)*2B)+1 
670 LOCATE PA,24,0: PRINT Aí; 

680 SP-0 
690 0P=0 
700 PH=0 
710 PV-0 
720 CC-2 
730 V»0 


740 

750 

760 

770 

780 

790 

800 

810 

320 

830 

840 

850 


H0*0 

RETURN 

DATA 63,1,15,31,31,63,63,31 
DATA 62,0,32,56,63,63,60,48 
DATA 0,0,3,3,63,62,0,0 
DATA 2,2,3,3,15,9,11,3 
DATA 32,32,32,32,56,0,40,32 
DATA 7,31,31,63,63,32,32,16 
DATA 48,60,60,62,62,2,2,4 
DATA 19,11,9,15,3,3,2,2 
DATA 36,40,8,56,32,32,32,32 
DATA 63,63,63,0,0,0,0,0 
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